﻿
Module Formeln


    Public Function Watt(ByVal spannung As String, ByVal widerstand As String, ByVal stromstärke As String) As Double
        Dim P As Double
        spannung = CInt(Val(spannung))
        stromstärke = CInt(Val(stromstärke))
        widerstand = CInt(Val(widerstand))

        If PURIv2.CheckBox_U.Checked And PURIv2.CheckBox_I.Checked Then 'Wenn Spannung und Stromstärke gegeben ist
            If spannung = 0 Then
                'ErrorCode
            Else
                If stromstärke = 0 Then
                    'ErrorCode
                Else
                    P = (spannung * stromstärke)
                End If
            End If

        End If
        If PURIv2.CheckBox_R.Checked And PURIv2.CheckBox_I.Checked Then 'Wenn Widerstand udn Stromstärke gegeben ist
            If widerstand = 0 Then
                'ErrorCode
            Else
                If stromstärke = 0 Then
                    'ErrorCode
                Else
                    P = (widerstand * (stromstärke ^ 2))
                End If
            End If

        End If
        If PURIv2.CheckBox_R.Checked And PURIv2.CheckBox_U.Checked Then 'Wenn Widerstand und Spannung  gegeben ist
            If widerstand = 0 Then
                'ErrorCode
            Else
                If spannung = 0 Then
                    'ErrorCode
                Else
                    P = ((spannung * spannung) * widerstand)
                End If
            End If
        End If
        Return P
    End Function

    Public Function Volt(ByVal leistung As String, ByVal widerstand As String, ByVal stromstärke As String) As Double
        Dim V As Double

        leistung = CInt(Val(leistung))
        stromstärke = CInt(Val(stromstärke))
        widerstand = CInt(Val(widerstand))

        If PURIv2.CheckBox_R.Checked And PURIv2.CheckBox_I.Checked Then 'Wenn Widerstand und Stromstärke gegeben ist
            If widerstand = 0 Then
                'ErrorCode
            Else
                If stromstärke = 0 Then
                    'ErrorCode
                Else
                    V = (widerstand * stromstärke)
                End If
            End If

        End If
        If PURIv2.CheckBox_P.Checked And PURIv2.CheckBox_I.Checked Then 'Wenn Leistung und Stromstärke gegeben ist
            If leistung = 0 Then
                'ErrorCode
            Else
                If stromstärke = 0 Then
                    'ErrorCode
                Else
                    V = leistung / stromstärke
                End If
            End If

        End If
        If PURIv2.CheckBox_P.Checked And PURIv2.CheckBox_R.Checked Then 'Wenn Leistung und Widerstand  gegeben ist
            If leistung = 0 Then
                'ErrorCode
            Else
                If widerstand = 0 Then
                    'ErrorCode
                Else
                    V = leistung * (widerstand ^ (1 / 2))
                End If
            End If
        End If
        Return V
    End Function

    Public Function Ohm(ByVal leistung As String, ByVal spannung As String, ByVal stromstärke As String) As Double
        Dim R As Double

        leistung = CInt(Val(leistung))
        stromstärke = CInt(Val(stromstärke))
        spannung = CInt(Val(spannung))


        If PURIv2.CheckBox_U.Checked And PURIv2.CheckBox_I.Checked Then 'Wenn Spannung und Stromstärke gegeben ist
            If spannung = 0 Then
                'ErrorCode
            Else
                If stromstärke = 0 Then
                    'ErrorCode
                Else
                    R = spannung / stromstärke
                End If
            End If

        End If
        If PURIv2.CheckBox_P.Checked And PURIv2.CheckBox_U.Checked Then 'Wenn Leistung und Spannung gegeben ist
            If leistung = 0 Then
                'ErrorCode
            Else
                If spannung = 0 Then
                    'ErrorCode
                Else
                    R = (spannung * spannung) / leistung
                End If
            End If

        End If
        If PURIv2.CheckBox_P.Checked And PURIv2.CheckBox_I.Checked Then 'Wenn Leistung und Stromstärke  gegeben ist
            If leistung = 0 Then
                'ErrorCode
            Else
                If stromstärke = 0 Then
                    'ErrorCode
                Else
                    R = leistung / (stromstärke * stromstärke)
                End If
            End If
        End If
        Return R
    End Function

    Public Function Ampere(ByVal leistung As String, ByVal spannung As String, ByVal widerstand As String) As Double
        Dim I As Double

        leistung = CInt(Val(leistung))
        spannung = CInt(Val(spannung))
        widerstand = CInt(Val(widerstand))


        If PURIv2.CheckBox_U.Checked And PURIv2.CheckBox_R.Checked Then 'Wenn Spannung und Widerstand gegeben ist
            If spannung = 0 Then
                'ErrorCode
            Else
                If widerstand = 0 Then
                    'ErrorCode
                Else
                    I = spannung / widerstand
                End If
            End If

        End If
        If PURIv2.CheckBox_P.Checked And PURIv2.CheckBox_U.Checked Then 'Wenn Leistung und Spannung gegeben ist
            If leistung = 0 Then
                'ErrorCode
            Else
                If spannung = 0 Then
                    'ErrorCode
                Else
                    I = leistung / spannung
                End If
            End If

        End If
        If PURIv2.CheckBox_P.Checked And PURIv2.CheckBox_R.Checked Then 'Wenn Leistung und Widerstand  gegeben ist
            If leistung = 0 Then
                'ErrorCode
            Else
                If widerstand = 0 Then
                    'ErrorCode
                Else
                    I = (leistung / widerstand) ^ (1 / 2)
                End If
            End If
        End If
        Return I
    End Function

End Module
